home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mission 3
/
Mission 3.zip
/
Mission 3.iso
/
spiele
/
sgac
/
editor.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1989-07-28
|
45KB
|
935 lines
10 KEY
100 DIM
1000 REM
1010 REM
1020 REM
1030 REM
1035 IF
1040 REM ~~~ LOOK FOR OBJECTS
1050 VARNAME
1060 FOR
1070 IF
1080 NEXT
1090 IF
110 DIM
1100 FOR
1120 IF
1130 NEXT
1150 WHILE
1160 REM ~~~ TAKE OBJECT
1170 VARNAME
1175 IF
1180 IF
1185 FOR
1186 IF
1187 NEXT
1190 IF
120 FOR
1200 HIDE
1210 FOR
1220 VARNAME
1230 FOR
1240 IF
1250 IF
1260 NEXT
1280 VARNAME
1290 REM ~~~ OBJECT SELECTED AND TAKEN
130 DATA
1300 VARNAME
1310 VARNAME
1320 IF
1330 IF
1340 IF
1350 UNTIL
1360 LOGIC
1370 REM ~~~ INSERT SPECIAL TAKE EVENTS BETWEEN LINES 1380-1670
1380 REM
1390 REM
140 VARNAME
1400 REM
1410 REM
1420 REM
1430 REM
1440 REM
145 REM ~~~ LOAD SGAC DATA
1450 REM
146 GOSUB
1460 REM
147 VARNAME
1470 REM
1480 REM
1490 REM
150 REM ~~~ INSERT YOUR VARIBLES BETWEEN LINES 160-240
1500 REM
1510 REM
1520 REM
1530 REM
1540 REM
1550 REM
1560 REM
1570 REM
1580 REM
1590 REM
160 REM
1600 REM
1610 REM
1620 REM
1630 REM
1640 REM
1650 REM
1660 REM
1670 REM
1680 VARNAME
1685 IF
1690 INC
170 REM
1700 REM ~~~ DROP OBJECT
1710 IF
1720 FOR
1730 CLW
1740 VARNAME
1750 FOR
1760 IF
1770 NEXT
1780 REM
1790 VARNAME
180 REM
1800 REM ~~~ OBJECT SELECTED AND DROPPED
1805 VARNAME
1810 VARNAME
1820 IF
1825 IF
1830 IF
1840 UNTIL
1870 FOR
1880 IF
1890 NEXT
1895 LOGIC
190 REM
1900 REM ~~~ INSERT SPECIAL DROP EVENTS BETWEEN LINES 1910-2200
1910 REM
1920 REM
1930 REM
1940 REM
1950 REM
1960 REM
1970 REM
1980 REM
1990 REM
20 REM n error goto 8970
200 REM
2000 REM
2010 REM
2020 REM
2030 REM
2040 REM
2050 REM
2060 REM
2070 REM
2080 REM
2090 REM
210 REM
2100 REM
2110 REM
2120 REM
2130 REM
2140 REM
2150 REM
2160 REM
2170 REM
2180 REM
2190 REM
220 REM
2200 REM
2210 IF
2230 DEC
2240 REM ~~~ EXAMINE OBJECT
2250 IF
2260 IF
2270 CLW
2280 VARNAME
2290 FOR
2295 IF
230 REM
2300 IF
2310 NEXT
2320 REM
2330 REM ~~~ OBJECT SELECTED AND EXAMINED
2335 VARNAME
2340 VARNAME
2345 IF
2350 IF
2360 IF
2370 UNTIL
2380 FOR
2390 IF
240 REM
2400 NEXT
2410 REM ~~~ INSERT SPECIAL EXAMINE OBJECT EVENTS BETWEEN LINES 2420-2710
2420 REM
2430 REM
2440 REM
2450 REM
2460 REM
2470 REM
2480 REM
2490 REM
250 REM ~~~ INSERT YOUR GAME INTRO BETWEEN LINES 260-430
2500 REM
2510 REM
2520 REM
2530 REM
2540 REM
2550 REM
2560 REM
2570 REM
2580 REM
2590 REM
260 REM
2600 REM
2610 REM
2620 REM
2630 REM
2640 REM
2650 REM
2660 REM
2670 REM
2680 REM
2690 REM
270 REM
2700 REM
271 REM
2710 REM
2720 IF
2725 IF
2730 VARNAME
2740 REM ~~~ EXAMINE LOCATION
2750 HIDE
2755 RESET ZONE
2760 IF
2770 FOR
2780 SET ZONE
2790 NEXT
280 REM
2800 WINDOPEN
2820 REPEAT
2830 VARNAME
2840 WAIT VBL
2850 UNTIL
2855 IF
2856 IF
2860 REM ~~~ INSERT SPECIAL EXAMINE LOCATION EVENTS BETWEEN LINES 2870-3160
2870 REM
2880 REM
2890 REM
290 REM
2900 REM
2910 REM
2920 REM
2930 REM
2940 REM
2950 REM
2960 REM
2970 REM
2980 REM
2990 REM
30 DIM
300 REM
3000 REM
3010 REM
3020 REM
3030 REM
3040 REM
3050 REM
3060 REM
3070 REM
3080 REM
3090 REM
310 REM
3100 REM
3110 REM
3120 REM
3130 REM
3140 REM
3150 REM
3160 REM
3170 IF
3180 IF
3190 REM ~~~ INVENTORY
320 REM
3200 FOR
3205 IF
3210 NEXT
3220 IF
3230 FOR
3240 IF
3250 IF
3260 NEXT
3270 IF
3280 WAIT
3290 REM ~~~ LOAD GAME POSTION
330 REM
3300 LOGIC
3310 IF
3320 LIMIT MOUSE
3330 IF
3340 IF
3350 HIDE
3360 INPUT
3370 REM ~~~ INSERT SINGLE VARIBLES TO BE LOADED BETWEEN LINES 3380-3440
3380 REM
3390 REM
340 REM
3400 REM
3410 REM
3420 REM
3430 REM
3440 REM
3450 FOR
3460 REM ~~~ INSERT NUMBER ARRAYS TO BE LOADED BETWEEN LINES 3470-3550
3470 REM
3480 REM
3490 REM
350 REM
3500 REM
3510 REM
3520 REM
3530 REM
3540 REM
3550 REM
3560 REM ~~~ INSERT WORD ARRAYS TO BE LOADED BETWEEN LINES 3570-3630
3570 REM
3580 REM
3590 REM
360 REM
3600 REM
3610 REM
3620 REM
3630 REM
3640 CLOSE
3650 REM ~~~ SAVE GAME POSTION
3660 LIMIT MOUSE
3670 IF
3680 IF
3690 HIDE
370 REM
3700 OPEN OUT
3710 PRINT
3720 REM ~~~ INSERT SINGLE VARIBLES TO BE SAVED BETWEEN LINES 3730-3790
3730 REM
3740 REM
3750 REM
3760 REM
3770 REM
3780 REM
3790 REM
380 REM
3800 FOR
3810 REM ~~~ INSERT NUMBER ARRAYS TO BE SAVED BETWEEN LINES 3820-3900
3820 REM
3830 REM
3840 REM
3850 REM
3860 REM
3870 REM
3880 REM
3890 REM
390 REM
3900 REM
3910 REM ~~~ INSERT LETTER/WORD ARRAYS TO BE SAVED BETWEEN LINES 3920-3990
3920 REM
3930 REM
3940 REM
3950 REM
3960 REM
3970 REM
3980 REM
3990 REM
40 DIM
400 REM
4000 CLOSE
4010 CURS
4020 REM ~~~ SPEAK
4025 HIDE
4030 RESET ZONE
4040 IF
4050 FOR
4060 SET ZONE
4070 NEXT
4080 REM
4090 WINDOPEN
410 REM
4100 REPEAT
4110 VARNAME
4120 WAIT VBL
4130 UNTIL
4140 IF
4145 IF
4146 REM ~~~ ENTER SPEAK EVENTS BETWEEN LINES 4150-4440
4150 REM
4160 REM
4170 REM
4180 REM
4190 REM
420 REM
4200 REM
4210 REM
4220 REM
4230 REM
4240 REM
4250 REM
4260 REM
4270 REM
4280 REM
4290 REM
430 REM
4300 REM
4310 REM
4320 REM
4330 REM
4340 REM
4350 REM
4360 REM
4370 REM
4380 REM
4390 REM
440 REM
4400 REM
4410 REM
4420 REM
4430 REM
4440 REM
4450 IF
4460 WAIT
4470 REM ~~~ GIVE
4480 REM
4490 IF
450 REM
4500 CLW
4515 FOR
4520 IF
4525 IF
4530 NEXT
4560 REM ~~~ OBJECT SELECTED
4570 VARNAME
4580 VARNAME
4590 IF
4595 IF
460 REM ~~~ LOAD A LOCATION PICTURE
4600 IF
4610 UNTIL
4615 HIDE
4620 RESET ZONE
4630 IF
4640 FOR
4650 SET ZONE
4660 NEXT
4670 REM
4680 WINDOPEN
4690 REPEAT
470 VARNAME
4700 VARNAME
4710 WAIT VBL
4720 UNTIL
4725 IF
4730 REM ~~~ INSERT GIVE EVENTS BETWEEN LINES 4740-5030
4740 REM
4750 REM
4760 REM
4770 REM
4780 REM
4790 REM
480 ERASE
4800 REM
4810 REM
4820 REM
4830 REM
4840 REM
4850 REM
4860 REM
4870 REM
4880 REM
4890 REM
490 EXTENSION (Index #0) (Token 0x80)
4900 REM
4910 REM
4920 REM
4930 REM
4940 REM
4950 REM
4960 REM
4970 REM
4980 REM
4990 REM
50 DIM
500 REM ~~~ CALL EXTRA ROUTINES FROM THIS LINE
5000 REM
5010 REM
5020 REM
5030 REM
5040 IF
5050 WAIT
5060 REM ~~~ LOAD GAME DATA
5070 VARNAME
5080 LINE INPUT
5090 FOR
5095 IF
510 REM
5100 FOR
5110 FOR
5120 FOR
5130 FOR
5140 FOR
5150 FOR
5160 FOR
5170 FOR
5180 FOR
5190 FOR
520 VARNAME
5200 FOR
5210 FOR
5220 FOR
5230 FOR
5240 FOR
5250 FOR
5260 FOR
5270 FOR
5280 FOR
5290 FOR
530 REM ~~~ WAIT FOR CHOICE
5300 FOR
5310 FOR
5320 FOR
5330 FOR
5340 FOR
5350 FOR
5360 FOR
5370 FOR
5380 FOR
5390 FOR
5400 FOR
5410 FOR
5420 FOR
5430 FOR
5440 FOR
5450 FOR
5460 FOR
5470 FOR
5480 CLOSE
5490 REM ~~~ END
550 WHILE
5500 HIDE
5502 PRINT
5505 PRINT
5506 REPEAT
5507 IF
5508 VARNAME
5510 REM ~~~ MOVE TO ANOTHER LOCATION
5520 HIDE
5530 IF
5540 FOR
5550 SET ZONE
5560 NEXT
5570 WINDOPEN
5590 REPEAT
560 PAPER
5600 VARNAME
5610 WAIT VBL
5620 UNTIL
5630 IF
5640 HIDE
5650 REM ~~~ OPEN
5655 HIDE
5660 IF
5670 VARNAME
5680 IF
5690 FOR
5700 SET ZONE
5710 NEXT
5720 WINDOPEN
5740 REPEAT
5750 VARNAME
5760 WAIT VBL
5770 UNTIL
5775 IF
5780 REM ~~~ INSERT OPEN EVENTS BETWEEN LINES 5790-6080
5790 REM
580 LIMIT MOUSE
5800 REM
5810 REM
5820 REM
5830 REM
5840 REM
5850 REM
5860 REM
5870 REM
5880 REM
5890 REM
590 FOR
5900 REM
5910 REM
5920 REM
5930 REM
5940 REM
5950 REM
5960 REM
5970 REM
5980 REM
5990 REM
60 DIM
600 VARNAME
6000 REM
6010 REM
6020 REM
6030 REM
6040 REM
6050 REM
6060 REM
6070 REM
6080 REM
6090 IF
610 VARNAME
6100 WAIT
6110 REM ~~~ CLOSE
6120 VARNAME
6130 IF
6140 FOR
615 IF
6150 SET ZONE
6160 NEXT
6170 WINDOPEN
6190 REPEAT
620 IF
6200 VARNAME
6210 WAIT VBL
6220 UNTIL
6225 IF
6230 REM ~~~ INSERT CLOSE EVENTS BETWEEN LINES 6240-6530
6240 REM
6250 REM
6260 REM
6270 REM
6280 REM
6290 REM
630 IF
6300 REM
6310 REM
6320 REM
6330 REM
6340 REM
6350 REM
6360 REM
6370 REM
6380 REM
6390 REM
640 UNTIL
6400 REM
6410 REM
6420 REM
6430 REM
6440 REM
6450 REM
6460 REM
6470 REM
6480 REM
6490 REM
650 REM ~~~ CHOICE SELECTED
6500 REM
6510 REM
6520 REM
6530 REM
6540 IF
655 VARNAME
6550 WAIT
6560 REM ~~~ WEAR OBJECT
6565 IF
6570 IF
6575 IF
6580 FOR
660 ON
6600 CLW
6620 FOR
6630 IF
6640 NEXT
6650 VARNAME
6660 VARNAME
6670 IF
6680 IF
6690 IF
670 REM ~~~ PRINT LOCATION
6700 UNTIL
6710 FOR
6720 IF
6730 NEXT
6735 LOGIC
6740 REM ~~~ INSERT SPECIAL WEAR COMMANDS BETWEEN LINES 6750-7040
6750 REM
6760 REM
6770 REM
6780 REM
6790 REM
680 HIDE
6800 REM
6810 REM
6820 REM
6830 REM
6840 REM
6850 REM
6860 REM
6870 REM
6880 REM
6890 REM
690 PAPER
6900 REM
6910 REM
6920 REM
6930 REM
6940 REM
6950 REM
6960 REM
6970 REM
6980 REM
6990 REM
70 DIM
700 CURS
7000 REM
7010 REM
7020 REM
7030 REM
7040 REM
7050 IF
7060 INC
7070 REM ~~~ REMOVE OBJECT
7074 FOR
7080 IF
710 PRINT
7110 CLW
7130 FOR
7140 IF
7150 NEXT
7160 VARNAME
7170 VARNAME
7180 IF
7190 IF
720 WAIT
7200 IF
7210 UNTIL
7220 FOR
7230 IF
7240 NEXT
7245 LOGIC
7250 REM ~~~ INSERT SPECIAL REMOVE EVENTS BETWEEN LINES 7250-7540
7260 REM
7270 REM
7280 REM
7290 REM
7300 REM
7310 REM
7320 REM
7330 REM
7340 REM
7350 REM
7360 REM
7370 REM
7380 REM
7390 REM
740 REM ~~~ INSERT HIGH PRIORTY EVENTS BETWEEN LINES 750-1020
7400 REM
7410 REM
7420 REM
7430 REM
7440 REM
7450 REM
7460 REM
7470 REM
7480 REM
7490 REM
750 REM
7500 REM
7510 REM
7520 REM
7530 REM
7540 REM
7550 INC
7555 IF
7560 WAIT
7570 REM ~~~ USE
7580 IF
7585 WINDOPEN
7590 CLW
760 REM
7610 FOR
7615 IF
7620 IF
7630 NEXT
7650 REM
7660 REM ~~~ OBJECT SELECTED
7670 VARNAME
7675 VARNAME
7680 IF
7685 IF
7690 IF
770 REM
7700 UNTIL
7710 IF
7720 LOGIC
7730 REM ~~~ INSERT USE OBJECT EVENTS BETWEEN LINES 7740-8030
7740 REM
7750 REM
7760 REM
7770 REM
7780 REM
7790 REM
780 REM
7800 REM
7810 REM
7820 REM
7830 REM
7840 REM
7850 REM
7860 REM
7870 REM
7880 REM
7890 REM
790 REM
7900 REM
7910 REM
7920 REM
7930 REM
7940 REM
7950 REM
7960 REM
7970 REM
7980 REM
7990 REM
80 DIM
800 REM
8000 REM
8010 REM
8020 REM
8030 REM
8040 IF
8045 WAIT
8046 REM ~~~ USE ON
8047 HIDE
8050 RESET ZONE
8060 IF
8070 FOR
8080 SET ZONE
8090 NEXT
810 REM
8100 WINDOPEN
8120 REPEAT
8130 VARNAME
8140 WAIT VBL
8150 UNTIL
8155 IF
8156 IF
8160 REM ~~~ INSERT USE ON EVENTS BETWEEN LINES 8170-8460
8170 REM
8180 REM
8190 REM
820 REM
8200 REM
8210 REM
8220 REM
8230 REM
8240 REM
8250 REM
8260 REM
8270 REM
8280 REM
8290 REM
830 REM
8300 REM
8310 REM
8320 REM
8330 REM
8340 REM
8350 REM
8360 REM
8370 REM
8380 REM
8390 REM
840 REM
8400 REM
8410 REM
8420 REM
8430 REM
8440 REM
8450 REM
8460 REM
8470 IF
8475 WAIT
8480 WAIT
8490 REM ~~~ CONSUME
850 REM
8500 REM
8510 IF
8520 CLW
8530 FOR
8535 IF
8540 IF
8550 NEXT
8570 REM ~~~ OBJECT SELECTED
8580 VARNAME
8590 VARNAME
860 REM
8600 IF
8610 IF
8620 IF
8630 UNTIL
8635 LOGIC
8640 REM ~~~ INSERT CONSUME EVENTS BETWEEN LINES 8640-8940
8650 REM
8660 REM
8670 REM
8680 REM
8690 REM
870 REM
8700 REM
8710 REM
8720 REM
8730 REM
8740 REM
8750 REM
8760 REM
8770 REM
8780 REM
8790 REM
880 REM
8800 REM
8810 REM
8820 REM
8830 REM
8840 REM
8850 REM
8860 REM
8870 REM
8880 REM
8890 REM
890 REM
8900 REM
8910 REM
8920 REM
8930 REM
8940 REM
8950 IF
8960 WAIT
8970 REM ~~~ ERROR
8980 CLS
8990 WAIT
90 DIM
900 REM
9000 REM ~~~ USE THE REST OF THE LISTING FOR YOUR OWN ROUTINES
9010 REM
910 REM
920 REM
930 REM
940 REM
950 REM
960 REM
970 REM
980 REM
990 REM